"0","```r
scpdSM_euc <- vegdist(scpdSM, method=\"euclidean\")
scpdSM_bray <- vegdist(scpdSM, method=\"bray\")
scpdSM_chao <- vegdist(scpdSM, method=\"chao\")

# print(scpdSM_euc)
# print(scpdSM_bray)
# print(scpdSM_chao)
```"
